PC WORLD Online - Word ▌τin Faydal² Makrolar

Aτ²k belgeleri kapatmak

Word ile τal²■²rken bir anda bir sⁿrⁿ belge aτt²n²z ve ortal²k τar■amba pazar²na d÷ndⁿ. ▌■te tam bu anda WordÆⁿn bⁿtⁿn aτ²k pencereleri tek bir tu■ vuru■unda kapatmas²n² istiyorsunuz ancak b÷yle bir seτenek WordÆde yok. Eh ne yapal²m, biz de bir makro yazar²z ve olaya τ÷zⁿm getiririz. Hem de ÷yle bir makro yapar²z ki, ekrana bir diyalog kutusu getirir ve size iki seτenek sunar. Birinci seτene≡i tercih ederseniz WordÆⁿn aτ²k bⁿtⁿn belgelerini kapat²r, ikinci seτene≡i tercih ederseniz WordÆⁿn aτ²k belgelerini kapatmakla kalmaz, WordÆden de τ²kar. A■a≡²daki makro sat²rlar²n² WordÆe girdi≡inizde bⁿtⁿn problemleriniz halledilmi■ olacak.

Sub main
Begin Dialog UserDialog 213, 120, 307, 117, "Tⁿm dosyalar² kapat"
	PushButton 198, 14, 86, 21, "tamam", .Push1
	PushButton 198, 46, 86, 21, "tamam", .Push2
	Text 20, 18, 163, 13, "Bⁿtⁿn belgeleri kapat", .Text1
	Text 19, 42, 163, 13, "Bⁿtⁿn belgeleri kapat", .Text2
	Text 59, 57, 130, 13, "ve word'den c²k", .Text3
	CancelButton 198, 81, 88, 21
End Dialog

Dim dlg As UserDialog
x = Dialog(dlg)

If x = 1 Then
	FileCloseAll
ElseIf x = 2 Then
	FileExit
Else
EndIf

End Sub